home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / xserial source ƒ / ctop.c next >
Encoding:
C/C++ Source or Header  |  1989-12-08  |  197 b   |  17 lines  |  [TEXT/KAHL]
  1. #include "xcmd.h"
  2.  
  3. /* converts c string to pascal string */
  4.  
  5. char    *ctop(s)
  6.     char        *s;
  7. {
  8.     short        i,l;
  9.     
  10.     for (i = 0,l=0; s[i] != 0; ++i)
  11.         ++l;
  12.     while(i--)
  13.         s[i+1] = s[i];
  14.     s[0] = l;
  15.     return(s);
  16. }
  17.